unit RamosRecordfr;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  StdCtrls, DBCtrls, ActnList, DBGrids, MainRecordFr;

type

  { TRamosRecordFrame }

  TRamosRecordFrame = class(TMainRecordFrame)
    DBGrid1: TDBGrid;
    DBGroupBox1: TDBGroupBox;
    DBGroupBox2: TDBGroupBox;
    DBNavigator1: TDBNavigator;
    desc_ramo: TDBEdit;
    id_ramo: TDBEdit;
    Label1: TLabel;
    Label2: TLabel;
 //   procedure SalvarButtonClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

implementation

{TRamosRecordFrame}

//uses RamoDM;

{procedure TRamosRecordFrame.SalvarButtonClick(Sender: TObject);
begin
  if (desc_ramo.Text = '') then begin
    ShowMessage('Campo em branco! Favor Preencher!');
    desc_ramo.SetFocus();
  end else
    inherited;
end; }

initialization
  {$I ramosrecordfr.lrs}

end.

